﻿Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Public Class DAOObras

    '//////////////////////////////////CARGAR GRILLAS///////////////////
    Public Function cargarGrillaObras(ByVal idCliente As Integer) As Data.DataTable
        Dim tabla As New Data.DataTable
        Dim con As String = ConfigurationManager.ConnectionStrings("Conex").ConnectionString
        Dim cn As New SqlConnection(con)

        Try
            Dim sql As String = "SELECT OC.ID_OBRA_CLIENTE,O.NOMBRE AS 'NOMBRE OBRA',B.NOMBRE BARRIO,E.NOMBRE ESTADO,OC.OBSERVACIONES"
            sql += " FROM T_OBRAS_CLIENTE OC, T_OBRAS O, T_CLIENTES C, T_ESTADOS_OBRA E, T_DOMICILIOS D, T_BARRIOS B"
            sql += " WHERE OC.ID_CLIENTE = C.ID_CLIENTE AND OC.ID_OBRA = O.ID_OBRA AND OC.ID_ESTADO = E.ID_ESTADO_OBRA AND O.ID_DOMICILIO= D.ID_DOMICILIO"
            sql += " AND D.ID_BARRIO=B.ID_BARRIO AND OC.ID_CLIENTE = @idCliente"
            sql += " group by OC.ID_OBRA_CLIENTE,O.NOMBRE,B.NOMBRE,E.NOMBRE,OC.OBSERVACIONES"

            cn.Open()
            Dim cmd As New SqlCommand()
            cmd.Parameters.AddWithValue("@idCliente", idCliente)
            cmd.Connection = cn
            cmd.CommandText = sql
            cmd.CommandType = CommandType.Text

            tabla.Load(cmd.ExecuteReader())

        Catch
        Finally
            cn.Close()
        End Try

        Return tabla
    End Function

End Class
